object GlobalMines: TGlobalMines Left = 521 Top = 282 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Global Mines' ClientHeight = 144 ClientWidth = 132 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -10 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu Position = poScreenCenter Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnMouseUp = FormMouseUp OnPaint = FormPaint PixelsPerInch = 96 TextHeight = 13 object FlagBevel: TBevel Left = 7 Top = 5 Width = 30 Height = 19 end object TimeBevel: TBevel Left = 90 Top = 5 Width = 30 Height = 19 end object FlagLabel: TLabel Left = 8 Top = 8 Width = 28 Height = 15 Alignment = taCenter AutoSize = False Caption = '00' end object TimeLabel: TLabel Left = 91 Top = 8 Width = 28 Height = 13 Hint = 'Time played' Alignment = taCenter AutoSize = False Caption = '00' end object TopLine: TBevel Left = 0 Top = 0 Width = 138 Height = 2 Shape = bsTopLine end object Button: TSpeedButton Left = 53 Top = 5 Width = 21 Height = 19 Glyph.Data = { EE000000424DEE0000000000000076000000280000000F0000000F0000000100 0400000000007800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777770000077 777777700BBBBB007777770BBBBBBBBB077770BBB00000BBB07770BB0BBBBB0B B0770BB0BBBBBBB0BB070BB0BBBBBBB0BB070BBBBBBBBBBBBB070BBBBBBBBBBB BB070BBBB0BBB0BBBB0770BBB0BBB0BBB07770BBB0BBB0BBB077770BBBBBBBBB 077777700BBBBB0077777777700000777770} OnClick = InitGame end object MainMenu: TMainMenu Left = 96 Top = 80 object GameMenu: TMenuItem Caption = '&Game' object NewGame: TMenuItem Caption = '&New Game' ShortCut = 113 OnClick = InitGame end object N2: TMenuItem Caption = '-' end object Beginner: TMenuItem Caption = '&Beginner' Checked = True RadioItem = True OnClick = CustomLevelClick end object Intermediate: TMenuItem Caption = '&Intermediate' RadioItem = True OnClick = CustomLevelClick end object Expert: TMenuItem Caption = '&Expert' RadioItem = True OnClick = CustomLevelClick end object CustomLevel: TMenuItem Caption = '&Custom...' RadioItem = True OnClick = CustomLevelClick end object N1: TMenuItem Caption = '-' end object Marks: TMenuItem Caption = '&Marks (?)' Checked = True OnClick = MarksClick end object Settings: TMenuItem Caption = '&Settings...' OnClick = SettingsClick end object N4: TMenuItem Caption = '-' end object HighscoreLabel: TMenuItem Caption = '&Highscores...' OnClick = HighscoreLabelClick end object N3: TMenuItem Caption = '-' end object Exit: TMenuItem Caption = 'E&xit' OnClick = ExitClick end end object HelpMenu: TMenuItem Caption = '&Help' object Help: TMenuItem Caption = '&Help...' OnClick = HelpClick end object HowToRegister: TMenuItem Caption = '&How To Register...' OnClick = HowToRegisterClick end object Register: TMenuItem Caption = '&Register...' OnClick = RegisterClick end object N5: TMenuItem Caption = '-' end object About: TMenuItem Caption = '&About...' OnClick = AboutClick end end end object Timer: TTimer Enabled = False OnTimer = TimerTimer Left = 96 Top = 112 end end